<script>on mouseUpset the scroll of cd fld "manual" to 6221end mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>360</left>
<top>115</top>
<right>481</right>
<bottom>131</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpglobal upDateset the hilight of me to trueset the hilight of cd button id 9 to falseset the hilight of cd button id 10 to falseput "auto" into bg fld "reset" of cd 1put "auto" into upDateend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>360</left>
<top>130</top>
<right>481</right>
<bottom>148</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpglobal upDateset the hilight of me to trueset the hilight of cd button id 8 to falseset the hilight of cd button id 10 to falseput "notify" into bg fld "reset" of cd 1put "notify" into upDateend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>360</left>
<top>147</top>
<right>481</right>
<bottom>163</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpglobal upDateset the hilight of me to trueset the hilight of cd button id 8 to falseset the hilight of cd button id 9 to falseput "manual" into bg fld "reset" of cd 1put "manual" into upDateend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>195</left>
<top>288</top>
<right>325</right>
<bottom>324</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>print manual</name>
<script>on mouseUpanswer "Be sure to select 'US Letter' (or it's equivalent) in the page setup before printing the instructions." with "cancel" or "OK"if it is "cancel" then KillPrintingdoMenu "Page Setup..."print cd fld "manual"hide menuBarend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>37</left>
<top>288</top>
<right>167</right>
<bottom>324</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>'Click' me to save changes!</name>
<script>on mouseUpset lockMessages to trueif the hilight of me is false thenset the hilight of me to trueset the style of me to rectangleset the showName of me to trueshow cd fld "label"answer "Enter your return address into the field that just appeared below. The printed typeface will in be Palatino Italic."¬&return&return&"Remember to press the 'Return Address' button again to save any changes!"elseput cd fld "label" into myReturnLabelset cursor to busylock screenrepeat for the number of bgsput myReturnLabel into bg fld "return label"go next bgend repeatgo cd 2 of bg "Instruct"set cursor to 1unlock screenanswer "The return address:"&return&"_____________________________________"&return&myReturnLabel&return&¬return&"_____________________________________"&return&"has been saved to Address Ace™."hide cd fld "label"set the showName of me to falseset the style of me to transparentset the hilight of me to falseend ifset lockMessages to falseend mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>333</left>
<top>198</top>
<right>486</right>
<bottom>324</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>topics</name>
<script>on mouseUpselect the clickLineif the selection = line 1 of cd fld "topics" then set the scroll of cd fld "manual" to 0if the selection = line 2 of cd fld "topics" then set the scroll of cd fld "manual" to 575if the selection = line 3 of cd fld "topics" then set the scroll of cd fld "manual" to 998if the selection = line 4 of cd fld "topics" then set the scroll of cd fld "manual" to 1251if the selection = line 5 of cd fld "topics" then set the scroll of cd fld "manual" to 1371if the selection = line 6 of cd fld "topics" then set the scroll of cd fld "manual" to 1482if the selection = line 7 of cd fld "topics" then set the scroll of cd fld "manual" to 1559if the selection = line 8 of cd fld "topics" then set the scroll of cd fld "manual" to 1657if the selection = line 9 of cd fld "topics" then set the scroll of cd fld "manual" to 1843if the selection = line 10 of cd fld "topics" then set the scroll of cd fld "manual" to 2174if the selection = line 11 of cd fld "topics" then set the scroll of cd fld "manual" to 2384if the selection = line 12 of cd fld "topics" then set the scroll of cd fld "manual" to 3560if the selection = line 13 of cd fld "topics" then set the scroll of cd fld "manual" to 4165if the selection = line 14 of cd fld "topics" then set the scroll of cd fld "manual" to 4341if the selection = line 15 of cd fld "topics" then set the scroll of cd fld "manual" to 4495if the selection = line 16 of cd fld "topics" then set the scroll of cd fld "manual" to 5168if the selection = line 17 of cd fld "topics" then set the scroll of cd fld "manual" to 5346if the selection = line 18 of cd fld "topics" then set the scroll of cd fld "manual" to 5425if the selection = line 19 of cd fld "topics" then set the scroll of cd fld "manual" to 5856if the selection = line 20 of cd fld "topics" then set the scroll of cd fld "manual" to 6243if the selection = line 21 of cd fld "topics" then set the scroll of cd fld "manual" to 6619if the selection = line 22 of cd fld "topics" then set the scroll of cd fld "manual" to 6808end mouseUp</script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>174</left>
<top>279</top>
<right>339</right>
<bottom>334</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>label</name>
<script></script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>355</left>
<top>177</top>
<right>480</right>
<bottom>197</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpset the scroll of cd fld "manual" to 0set the scroll of cd fld "topics" to 0end mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>195</left>
<top>40</top>
<right>325</right>
<bottom>76</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Importer</name>
<script>on mouseUpglobal userLevel, savLevset lockMessages to trueanswer "Import entries from Hypercard 2.0's Address Stack or a comma or tab delimited text file..."&return&return&"In either case you'll need to designate the section"&¬" an entry is placed into. For ideas on sections read the instructions." with "cancel" or "import HC" or "import text"if it is "cancel" then exit mouseUpif it is "import HC" thenif there is no stack "Addresses" thenanswer "Can't find the stack Addresses. Make sure it is in the same foler as Address Ace™ and Hypercard."exit mouseUpend ifset cantAbort of this stack to trueset cantAbort of stack "Address Ace™" to trueset cantAbort of stack "Addresses" to trueput the userLevel into savLevset the userLevel to 5set cursor to busylock screengo "Addresses"put the number of cds of bg "Body" into cardsInStackBrepeat with i = 1 to the number of cds of bg "Body"go cd i of bg "Body"put bg fld "Phone 1" into phoneif bg fld "Phone 2" is not empty then put return & bg fld "Phone 2" after last line of phoneif bg fld "Phone 3" is not empty then put return & bg fld "Phone 3" after last line of phoneif bg fld "Phone 4" is not empty then put return & bg fld "Phone 4" after last line of phoneput bg fld "Notes" into notesput bg fld "Company" into companyput bg fld "Name" into nameput bg fld "Street" into localityput bg fld "CityState" into cityput " " & bg fld "Zip" after city---go stack "Address Ace™"put bg fld "gobg" into directoryask "Put "&name&&"of"&&company&&"into which section?"&return&directory&return&"(or enter the name of the new section)"if it is empty or it is not in directory thenanswer "Put "&name&&"of"&&company&&"into a new section?" with "no" or "OK"if it is "OK" then newBkgndif it is "no" thenrepeat until it is in directoryask "Put "&name&&"of"&&company&&"into which section?"&return&directory&return&"(only enter one of the above section names)"end repeatend ifelsego bg itdoMenu "New Card"end ifput phone into bg fld "phone"put notes into bg fld "notes"put company into bg fld "company"put name into bg fld "name"put locality into bg fld "local address"put city into bg fld "csz"put the date into bg fld "date"put line 1 of bg fld date into line 2 of bg fld dateconvert line 2 of bg fld "date" to secondsgo cd i of bg "Body" of stack "Addresses"put (cardsInStackB - 1) into cardsInStackBput cardsInStackB&" entries remaining to transfer to the new copy of Address Ace™…" into msgend repeatput "Importation of entries complete." into msggo cd 1 of stack "Address Ace™"niceSortset cursor to 1set cantAbort of this stack to falseset lockMessages to falseset the userLevel to savLevend ifif it is "import text" thenglobal entryHolderput empty into entryHolderanswer"If this text file was made in a word processing program make sure it was saved as a text only document or errors will result."¬&return&return&"The text file must also be in the same folder as Hypercard."&return&return&"Is the file tab-delimited or comma delimited?" with "cancel" or "comma" or "tab"if it is "cancel" then exit to hypercardif it is "tab" then put true into tabDelimitedif it is "comma" then put false into tabDelimitedask "What is the text-only file called?" with "Export Data"if it is empty then exit to hypercardput it into fileNameif there is no file fileName thenanswer "Address Ace cannot find the file ""e&fileName"e&". Be sure it is in the same folder as Hypercard and Address Ace™."exit to hypercardend ifopen file fileNamerepeatread from file fileName for 16384put it after entryHolderif it is empty then exit repeatend repeatclose file fileNamerepeatif entryHolder is empty then exit repeatput line 1 of entryHolder into newEntryif tabDelimited = true thenrepeatput offset(tab,newEntry) into whereTabif whereTab = 0 then exit repeatput "," after char whereTab of newEntrydelete char whereTab of newEntryend repeatend ifanswer "You can place the entry for"&"e&item 1 of newEntry&&item 2 of newEntry"e&&"into the current section ("&short name of this bg&"),"&return&¬"place this entry into a different section or start a new section for the entry...or"&return&"stop making entries for now..." with"stop" or "new/diff" or "current"if it is "stop" then stopif it is "new/diff" thenanswer "Start a new section or place the entry into a section listed below?"&return&"_______________"&return&bg fld "gobg" with "use from list" or "new"if it is "new" then NewBkgndif it is "use from list" thenrepeat until it is in bg fld "gobg"ask "Type the name of the section you would like to place"&"e&item 1 of newEntry&&item 2 of newEntry"e&&"into."&return&"_________"&return&bg fld "gobg"if it is not in bg fld "gobg" then answer "Can you enter that again? Address Ace does not recognize "&it&"."end repeatgo bg itdoMenu "New Card"end ifend ifif it is "current" thendoMenu "New Card"end ifput empty into msgput item 1 of newEntry into bg fld "name"put item 2 of newEntry into bg fld "company"put item 3 of newEntry into bg fld "local address"put item 4 of newEntry into bg fld "csz"put ", " & item 5 of newEntry&& item 6 of newEntry after bg fld "csz"put item 7 of newEntry into line 1 of bg fld "phone"put item 8 of newEntry into line 2 of bg fld "phone"put item 9 of newEntry into line 3 of bg fld "phone"put item 10 of newEntry into line 4 of bg fld "phone"put item 11 of newEntry into bg fld "tax#"delete line 1 of entryHolderput the number of lines of entryHolder&&"entries left to place." into msgend repeatanswer "You have completed importing entries. Address Ace will now sort and compact this stack in preperation for use."end ifniceSortend mouseUpon stopglobal entryHolderask "Save the remaining entries to enter as..." with "Export Data"if it is empty then put "entry Dump" into itput it into fileNameif there is a file fileName or fileName is empty thenrepeatask "There is already a file named ""e&fileName"e&". Give the file a unique name please."put it into fileNameif there is not a file fileName and fileName is not empty then exit repeatend repeatend ifopen file fileNamewrite entryHolder to file fileNameclose file fileNameAnswer"The remaining entries have been saved to a new text file entitled ""e&fileName"e&". In the future you can have Address Ace™ read entries directly from "¬&"this file to continue importing entries where you left off."exit to Hypercardend stop</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>305</left>
<top>40</top>
<right>325</right>
<bottom>60</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpanswer "Use this button to import entries from Hypercard 2.0's Address Stack or a comma or tab delimited text file."with "continue"answer"Transfer is not fully automatic. You'll need to designate the section in Address Ace™ that an entry is put into (You can create sections as you go along...)."¬&return&return&"For ideas on sections read the instructions before you begin."end mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>445</left>
<top>40</top>
<right>481</right>
<bottom>76</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Return</name>
<script>on mouseUpif there is no cd button "registered" thenanswer "Address Ace™ evolved over uncounted hours of designing, testing and user input. If you use it, please, register and pay for it."&return&return&¬"Send $20 for usage rights." &return&return&"AA™ offers features available in commercial products costing two to five times as much." with "go back" or "register"if it is register thensend mouseUp to cd button "register"exit to hypercardend ifanswer "Support shareware"&return&return&"or you'll have no alternative to large multinational software companies with their higher prices and wasteful packaging."¬&return&return&"Do the right thing:"&return&return&"Support this stack."&return&return&"Support alternatives." with "I will!"end ifvisual effect iris closepop cardend mouseUp</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>351</left>
<top>40</top>
<right>446</right>
<bottom>76</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>register</name>
<script>on mouseUpanswer"Many thanks!"&return&return&"A #10 envelope is ready to be printed. It's addressed to me:"&return&return&bg fld "mailing label"&return&return&¬"Please enclose $20.00 for usage rights and keep shareware like this available."with "print"if it is print thenaceEnvelopeput "registered" into short name of meend ifend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>146</id>
<text>name</text>
</content>
<content>
<layer>background</layer>
<id>30</id>
<text>5/30/922790028800</text>
</content>
<content>
<layer>background</layer>
<id>147</id>
<text>local address</text>
</content>
<content>
<layer>background</layer>
<id>148</id>
<text>city, state zip</text>
</content>
<content>
<layer>background</layer>
<id>90</id>
<text>Ken Schles224 Avenue B #10New York City, N. Y. 10009</text>
</content>
<content>
<layer>background</layer>
<id>127</id>
<text>Ken Schles224 Avenue B #10New York City, N. Y. 10009</text>
<text>Overview of FeaturesBeginning your own stackKeywordsAdding sectionsAdding entriesMoving entries/merging sectionsPrintingPrinting envelopesPrinting mailing labelsMarking cards for labelsStrategies for marking cardsMarking cards individuallyPrinting recordsMarking cards for recordsSortingAddress Ace‚Ñ¢ as DADate macroExporting informationTemplate adjustmentReset optionsA couple of other things... (!)Copyright & Shareware notices</text>
<script>on openCardhide menuBarhide msgdisable menu "Edit"pass openCardend openCardon closeCardif the highlight of cd button "'Click' me to save changes!" is true then send mouseUp to cd button "'Click' me to save changes!"set the scroll of cd fld "manual" to 0set the scroll of cd fld "topics" to 0show menubarshow msgpass closeCardend closeCardon commandKeyDown whatKeyif whatKey = P thensend mouseUp to cd button "print manual"exit to hypercardend ifpass commandKeyDownend commandKeyDown</script>
</card>
card_2896.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset hilite of me to trueshow bg fld "mailing label"answer"Text used for mailing labels and envelope printing is automatically put into this field when 'closing' a card. The text is editable."¬&return&return&"Use the 'Print' button or type '⌘-P' when printing. You will be offered many options..."with "cancel" or "continue"if it is "cancel" thencancelOrContinueend ifanswer "You can print the address directly onto a #10 business envelopes or print mailing labels."&return&return&¬"Labels are set to be printed 30 to a page (10 high, 3 across). This is compatable with Avery Labels #5160 & #5260." with "cancel" or "more?"if it is "cancel" thencancelOrContinueend ifanswer "Printed text is 12 pt. Palatino Italic for envelopes, 10 pt. Palatino Italic for labels."&return&¬return&"To change font, text size or text style, choose the menu item 'Print Report...' and edit the Report Item of the respective report." with "cancel" or "but…"if it is "cancel" thencancelOrContinueend ifanswer"Be sure to retain the proper format of the template. Save changes only if the correct page setup was chosen before editing:"&return&¬"'US Letter' for labels, 'Envelope' for envelopes." with "cancel" or "continue"if it is "cancel" thencancelOrContinueend ifanswer "To hide the mailing label pop-up field once again click on the mailing label button."&return&return&"... Let me do that for you right now." with "OK"set hilite of me to falsehide bg fld "mailing label"end mouseUpon cancelOrContinueset hilite of me to falsehide bg fld "mailing label"exit to hypercardend cancelOrContinue</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>40</left>
<top>31</top>
<right>183</right>
<bottom>80</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>?</name>
<script>on mouseUpset the hilight of me to trueanswer "In this field there is enough room to enter four telephone numbers that are over 20 digits long."&return&return&¬"The telephone buttons dial the numbers entered on the line directly to their right. Text is not dialed (go ahead…try 'clicking' on the telephone icons)." with "But…"answer"If you have questions about direct dialing and using modems with Hypercard™, please refer to instructions supplied "&¬"with Hypercard™ or contact your local user group." with "thanks"set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>60</left>
<top>179</top>
<right>94</right>
<bottom>213</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>This Area...</name>
<script>on mouseUpset hilite of me to trueanswer "This button is the familiar 'Pop Card' button that will bring you through a series of recently visited cards." with "pop card" or "OK"set hilite of me to falseif it is "pop card" then pop cardend mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>260</top>
<right>494</right>
<bottom>284</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>This Area...</name>
<script>on mouseUpset the hilite of me to trueanswer "This button will delete the current card." & return & return & "Don't worry, from here it's disabled."set the hilite of me to falseend mouseUp</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>43</left>
<top>125</top>
<right>71</right>
<bottom>153</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8980</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>?</name>
<script>on mouseUpset hilite of me to trueanswer "Use these four buttons to move through the entries."&return&return&"Buttons take you to previous and next entry within a section, and previous and next section."¬&return&return&"You also can use your keyboard's left and right arrow keys to move through the entries."set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>20</left>
<top>179</top>
<right>54</right>
<bottom>213</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>This Area...</name>
<script>on mouseUpset hilite of me to trueanswer "This button will show you all the cards in this stack."¬&return&return&"A 'click' of the mouse will stop the advancing entries."set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>20</left>
<top>217</top>
<right>54</right>
<bottom>251</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>This Area...</name>
<script>on mouseUpset hilite of me to trueanswer "This button will sort all the cards in the stack using the Address Ace™ preffered sorting routine."&return&return&"How's that done?" with "I'll tell ya"answer "Each entry will be checked and sorted alphabetically in this order:"&return&return&"first: what section the card belongs to and"&return&¬"second: if the entry is associated with a company (any 'the's' aren't counted) and"&return&"third: the entry's last name." with "So…"answer "This way sections are kept alphabetically ordered and companies and last names are also kept in correct relation to each other."&return&return&¬"Even multiple entries for a single firm are alphabetized by the entries last name within the company."with "Phew!"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>60</left>
<top>217</top>
<right>94</right>
<bottom>251</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>This Area...</name>
<script>on mouseUpset hilite of me to trueanswer "This button will take you Home." & return & return & "Would you like to go Home?" with "go home" or "no way"set hilite of me to falseif it is "go home" then go homeend mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>378</left>
<top>32</top>
<right>493</right>
<bottom>57</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>--></name>
<script>on mouseUpset the hilight of me to trueanswer "This area contains the name of the section you are currently in."set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>376</left>
<top>67</top>
<right>493</right>
<bottom>96</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>This Area...</name>
<script>on mouseUpset hilite of me to trueshow msganswer "Use this button to find an entry by anything on its card: name, phone number, address, item in note, etc." with "How?"answer "Type the request (or part of it) in between the quotation marks in the message box below and hit the return key."&¬" A search is then made for the KEYWORD."&return&return&"Other ways to initiate a find command:"&return&"type '⌘-F' or select 'Find…' in the 'Go' menu." with "cancel" or "Keyword?"if it is "cancel" thenset hilite of me to falseexit mouseUpend ifanswer "A keyword is any word (or word fragment) typed into the message box when finding an entry."&return&return&¬"Link related entries by putting a keyword into an entry's notes field."&return&return&"Keywords can also be used to find cards to mark and print (see instructions)."set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>38</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>150</left>
<top>103</top>
<right>175</right>
<bottom>212</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8980</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name><--</name>
<script>on mouseUpanswer "This area is a 'table of contents'. A list of all the sections in this stack. Click on the name of the section you want to go to"¬&" and you will be taken there."&return&return&"If you plan to have more (!!) than nine sections change this to a scrolling field."end mouseUp</script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>103</top>
<right>494</right>
<bottom>156</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>This Area...</name>
<script>on mouseUpset the hilite of me to trueanswer "Use this button (or type ⌘-N) to add new entries within a section."&return&return&"Make sure you're in the section you want the entry to be in." with "continue"answer "To start using this stack click the button 'New Section' and create a catagory you want to add cards to (i.e.: clients; personal; suppliers; etc…)."¬&return&return&"Then, use this button (or type ⌘-N) to add entries to that section."set the hilite of me to falseend mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>102</left>
<top>260</top>
<right>179</right>
<bottom>284</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>This Area...</name>
<script>on mouseUpset hilight of me to trueanswer "Use this button to automatically update stored information." & return & return & "It updates this card's mailing label and/or the information stored "¬& "in the export field." & return & return & "Useful when a contact at a firm has been replaced and the entry must be updated." with "continue"answer "Because the information that gets updated is contained in the background, you might forget to use this button."¬&return&return&"See the instructions for more details on how you can have Address Ace™ prompt you or automatically reset an entry when necessary."set hilight of me to falseend mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>20</left>
<top>292</top>
<right>179</right>
<bottom>316</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>This Area...</name>
<script>on mouseUpset hilight of me to trueanswer "Use this button is to select (or change) the program you transfer information to."&return&return&¬"Click the 'Export Field' button and refer to the notes in the instructions for more information on this feature."set hilight of me to falseend mouseUp</script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>160</top>
<right>494</right>
<bottom>213</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpset the hilight of me to trueanswer "This button allows you to print 'records' (useable as Rolodex entries),"&return&return&"address #10 envelopes (with or with a return address),"&return&return&¬"as well as print mailing labels for a myriad of user designated purposes by selectivly 'marking' cards." with "continue"answer "To print return labels use the 'return label' button (just to the lower left of this one)."&return&return&¬"See the instructions for more information on 'marking' for printing."with "instructions" or "cancel"set the hilight of me to falseif it is "instructions" then advertif it is "cancel" then exit to hypercardend mouseUp</script>
</part>
<part>
<id>50</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>188</left>
<top>31</top>
<right>373</right>
<bottom>96</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>--></name>
<script>on mouseUpset the hilight of me to trueanswer "Use these editable fields to enter names and addresses as noted."&return&return&"Use the tab or return key to move through the fields."&return &return&"Some notes on making entries..." with "continue"answer "To sort this stack efficiently, please enter the first name before the last name."&return&return&¬"When entering the city and state, be sure use a comma between the two."&return&return&"Also be sure to leave a space between the state and the zip code."set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>20</left>
<top>260</top>
<right>101</right>
<bottom>284</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpif the hilight of bg button "info check" is false thenhide cd button id 11hide cd button id 17hide cd button id 27hide cd button id 29hide cd button id 30hide cd button id 32hide cd button id 38send mouseUp to bg button "info check"elseshow cd button id 11show cd button id 17show cd button id 27show cd button id 29show cd button id 30show cd button id 32show cd button id 38send mouseUp to bg button "info check"set the scroll of bg fld "export" to 0end ifend mouseUp</script>
</part>
<part>
<id>56</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>300</left>
<top>292</top>
<right>410</right>
<bottom>316</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilight of me to trueanswer"Use this button if you want to delete the section you are in."&return&return&¬"Be careful! Once done it cannot be undone." with "trust me"set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>57</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>188</left>
<top>292</top>
<right>299</right>
<bottom>316</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilight of me to trueanswer "Use this button to rename the section you are in… but don't rename this section."set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>58</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>238</top>
<right>493</right>
<bottom>250</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilight of me to trueanswer "This date reflects the last time an entry has been modified."&return&return&"It is checked by Address Ace™ when you choose to MARK"&¬" cards based on date criteria."&return&return&"Please see the instructions for more information on 'marking' cards."set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>59</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>20</left>
<top>82</top>
<right>183</right>
<bottom>96</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilight of me to trueanswer"A convienient place to store a vendor i.d., a tax number, or use this space to store an account number."&return&return&¬"Information contained here can be automatically exported to a document in a text writable application (see 'Export Field')."set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>64</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>377</left>
<top>217</top>
<right>410</right>
<bottom>251</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpset the hilight of me to trueanswer "Use this button to verify the entered return address and print return addresses on Avery #5160 or #5260 labels."&return&return&¬"Labels are printed in multiples of 30. Just select the number of pages to print."&return&return&"To enter a return address for use see the instructions."set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>65</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>292</top>
<right>494</right>
<bottom>316</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilight of me to trueanswer "Use this button to move a single entry into a different section or merge an entire section into another one."&return&return&¬"You are also given the option to delete the old entry or section after the move."set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>71</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>378</left>
<top>56</top>
<right>493</right>
<bottom>68</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpset the hilight of me to trueanswer "These two numbers tell you about the number of entries there are in Address Ace™."&return&return&"The number on the left refers the total number of entries "&¬"(cards) in the stack."&return&return&"The number on the right refers to the number of entries (cards) in the current section."set the hilight of me to falseend mouseUp</script>
</part>
<part>
<id>72</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>377</left>
<top>161</top>
<right>410</right>
<bottom>177</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilite of me to trueanswer "Marked Card Utility"&return&return&"These buttons let you go to the previous and next marked cards. Keyboard equivalents are the up (next) or down (previous)"¬&" arrow keys."with "more"answer "Marked Card Utility"&return&return&"When you click on one of these buttons the message box will also display the number of marked cards presently in the stack."¬&return&return&"See the instructions for more information on marked cards and their use."set the hilite of me to falseend mouseUp</script>
</part>
<part>
<id>73</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>377</left>
<top>179</top>
<right>410</right>
<bottom>213</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilite of me to trueanswer "Marked Card Utility"&return&return&"Use this button to 'mark' or 'unmark' a card."&return&return&"The message box will also"¬&" display the number of marked cards presently in the stack."&return&return&"See the instructions for more information on marked cards and their use."set the hilite of me to falseend mouseUp</script>
</part>
<part>
<id>74</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>216</top>
<right>494</right>
<bottom>234</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilite of me to trueanswer "Marked Card Utility"&return&return&"This button allows you to 'mark' a series of cards containing a KEYWORD, number or date; unmark all marked cards;"¬&" or see all the marked cards in the stack. -- Also gives you the number of marked cards presently in the stack."with "continue"answer "See the instructions for more information on marked cards, keywords and their use."set the hilite of me to falseend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>30</id>
<text>5/30/922790028800</text>
</content>
<content>
<layer>background</layer>
<id>145</id>
<text>Company Name</text>
</content>
<content>
<layer>background</layer>
<id>146</id>
<text>Contact Name</text>
</content>
<content>
<layer>background</layer>
<id>147</id>
<text>Local Address</text>
</content>
<content>
<layer>background</layer>
<id>148</id>
<text>City, State Zip Code</text>
</content>
<content>
<layer>background</layer>
<id>151</id>
<text>1-212-555-1212012-34-567-8901-23456789212-677-5391 (data)1-718-555-1212 after work</text>
</content>
<content>
<layer>background</layer>
<id>152</id>
<text>keep tax or acct. #'s here</text>
</content>
<content>
<layer>background</layer>
<id>127</id>
<text>Contact NameName of CompanyLocal AddressCity, State Zip Code</text>
</content>
<content>
<layer>background</layer>
<id>153</id>
<text><span class="style1">his sample card shows you the features of Address Ace‚Ñ¢. On this card only the fields have been replaced with buttons which describe their features. 'Click' on any button or field for a description of it's features.This editable scrolling field (the </span><span class="style4">notes</span><span class="style1"> field) is a convienient place to keep salient notes on entries.On small screen Macs there are more buttons hidden behind the message box . --To start your own section 'click' on the button below: </span><span class="style20">New Section</span></text>
</content>
<content>
<layer>background</layer>
<id>90</id>
<text><span class="style1">ompany NameLocal AddressCity, State Zip CodeAttn.: Contact Name1-212-555-1212012-34-567-8901-23456789212-677-5391 (data) (fax)1-718-555-1212 after work (home)keep tax or acct. #'s here--- All the above information was gleaned from various fields found on the card and is usually inserted into this field by various methods (we'll get to that in a moment). More importantly this field is editable by the user. You can place whatever information you want in this field. </span><span class="style4">Why place information in this field?</span><span class="style1"> Answer: for export to another application. Press the 'Open Application' button (behind this field) and </span><span class="style13">all information in this field</span><span class="style1"> is copied to the clipboard and transfered to any program you specify (that can recieve text). When the recieving template in another application is opened, type </span><span class="style4">cmd-v</span><span class="style1"> to paste this field's information. Refer to the instructions on setting up text documents in the other programs to recieve this information.</span><span class="style4">Ways information automatically is placed in </span><span class="style16">this</span><span class="style4"> field</span><span class="style1">The first method checks to see if this field is empty when the field is shown or the card is </span><span class="style4">closed</span><span class="style1">. If it is empty then information contained in various other fields is placed here. Once this field has information in it, it remains unchanged. By 'clicking' the </span><span class="style4">Reset Info</span><span class="style1"> button you invoke the second automatic method. The Reset Info button clears the field and reinserts the information again as gleaned from various fields: useful if an entry has been updated. Finally the third method: because this field and the mailing label field are usually hidden, you're liable to forget to use the reset button, so on the instruction card you are also given three</span><span class="style4"> Reset Options</span><span class="style1">. They are: choose to be notified if you need to reset, reset automatically or do nothing. 'Click' on the 'Export Field' button again to hide this field.</span></text>
</content>
<name>Instruct</name>
<script>on openStackif the number of cards < 3 thenset the hilight of bg button id 137 to truesend mouseUp to bg button id 137set the hilight of bg button id 137 to falseend ifpass openStackend openStackon openCarddisable menu "Edit"pass openCardend openCard=============================••• MORE HANDLERS FOR AA™ •••=============================function checkHCFont theFont,pointSizesput empty into missingrepeat with count = 1 to the number of items in pointSizesput item count of pointSizes into theCurrentPtSizeif not FontExists(theFont,theCurrentPtSize)then put theCurrentPtSize into last item of missingend repeatif missing is not empty thenput theFont & space before missingput return after missingend ifreturn missingend checkHCFonton checkForMissingFontsget checkHCFont("Palatino","10,12") & checkHCFont("Helvetica","9,10")if it is empty then exit checkForMissingFontselse put it into missingFontsbeep 1answer "These font(s) are missing from your system:" & ¬return & return & missingFonts & return & ¬"In order for Address Ace™ text to display correctly, make sure you have" ¬&& "installed the fonts included with HyperCard."end checkForMissingFontson returnAceif the visible of bg fld "return label" is true thenhide bg fld "return label"set the hilight of bg button id 158 to falseelseset the hilight of bg button id 158 to trueshow bg fld "return label"if bg fld "return label" is empty thenbeepanswer "There is no return label saved. Would you like to do that right now?" with "no" or "OK"if it is "no" thenhide bg fld "return label"set the hilight of bg button id 158 to falseexit returnAceend ifenterReturnAceend ifanswer "The return address saved is:"&return&"_____________________________________"&return&bg fld "return label"&return&¬return&"_____________________________________"&return&"Would you like to change it or print return labels?"with "cancel" or "change" or "print"if it is "print" thenanswer "Please please make sure 'US Letter' (or its equivalent) is selected in the page setup."doMenu "Page Setup..."ask "How many pages of return labels would you like to print?"&return&return&"(30 return labels are printed per page.)" with 1if it is empty thenset the hilight of bg button id 158 to falsehide bg fld "return label"killPrintingend ifput it into pagestoprintput "Preparing to print"&&pagestoprint * 30 &&"return labels on "&pagestoprint&" page(s)." into msgopen report printing with template "Return Labels"repeat (pagestoprint) * 30print this cardend repeatclose printingput pagestoprint * 30 &&"return labels on "&pagestoprint&" page(s) printed." into msgend ifif it is "change" thenenterReturnAceend ifset the hilight of bg button id 158 to falsehide bg fld "return label"end ifend returnAceon enterReturnAceset the hilight of bg button id 158 to falsehide bg fld "return label"go cd 2 of bg "Instruct"answer "Click on the 'Return Address' button below."&return&return&¬"(Afterwards, to get back to the last entry, click on the 'pop card' button in the upper right of this screen)."exit to hypercardend enterReturnAceon MkCdUtilityif the number of marked cards = 0 thenanswer "Right now there are no cards marked. Would you like to mark cards right now?" with "no" or "mark"elseanswer "There are "&the number of marked cards&" marked card(s) in this stack."&return&return&"Unmark all cards?"&return&return&"Show all marked cards?"¬&return&return&"Mark more cards?" &return&return&"Type (⌘-.) command-period to cancel."with "unmark" or "show" or "mark"end ifif it is "unmark" thenunmark all cardsset the icon of bg button "x" to 0beepput "All cards have been unmarked." into msgend ifif it is "show" thenset cursor to watchlock screenset the icon of bg button "x" to 3333go next marked cdunlock screenshow marked cardsend ifif it is "mark" thenset cursor to watchfindAndMarkCardsend ifend MkCdUtilityon findAndMarkCardsask "Enter the text, date, or numbers for use as keywords to find cards to mark."&return&return&¬"Note: if you enter the name of a section as a keyword it will enable you to mark all entries within a section."if it is a date and it contains "/" thenput it into timeSlotput it into aCertainDayconvert timeSlot to secondsanswer "You have entered the date: "&it &return&return&"Do you want to mark cards that are between " & it & ¬" and another date, before "&it&", or after "&it&"?"&return&return&"Type ⌘-. (command-period) to cancel." with "between" or "before" or "after"put "Marking cards based on date criteria..." into msgif it is "between" thenask "What is the other date?"if it is not a date or "/" is not in it thenask "The second date entered is not a date recognized by Address Ace™..." & return & return & aCertainDay &&¬"has been entered, please enter another date or marking will be canceled"if it is not a date or "/" is not in it then exit to hypercardend ifif it is a date and it contains "/" then convert it to secondsput it into timeSlot2if timeSlot > timeSlot2 thenput timeSlot into endDayconvert endDay to dateput timeSlot2 into startDayconvert startDay to dateanswer "Mark cards dated between " & startDay &" and " & endDay & "?" & return& return&¬"For the whole stack or just the section ""e & the short name of this bg & quote &"?" with "cancel" or "all" or short name of this bgif it is "cancel" then exit to hypercardif it is the short name of this bg thenmark cards where line 2 of bg fld "date" < timeSlot and (the short name of this bg = it)unmark cards where line 2 of bg fld "date" < timeSlot2 and (the short name of this bg =it)elsemark cards where line 2 of bg fld "date" > timeSlot2 and line 2 of bg fld "date" < timeSlotend ifend ifif timeSlot < timeSlot2 thenput timeSlot into startDayconvert startDay to dateput timeSlot2 into endDayconvert endDay to dateanswer "Mark cards dated between " & startDay &" and " & endDay & "?" & return& return&¬"For the whole stack or just the section ""e & the short name of this bg & quote &"?" with "cancel" or "all" or short name of this bgif it is "cancel" then exit to hypercardif it is the short name of this bg thenmark cards where line 2 of bg fld "date" > timeSlot and (the short name of this bg = it)unmark cards where line 2 of bg fld "date" > timeSlot2 and (the short name of this bg =it)elsemark cards where line 2 of bg fld "date" > timeSlot and line 2 of bg fld "date" < timeSlot2beepput "There were "&the number of marked cards&" card(s) marked.end ifend ifend ifif it is "before" thenanswer "You are about to mark the cards dated before "&aCertainDay&"."&return&return&¬"Would you like to do this in all sections or just in this section: "& the short name of this bg &"?" with "cancel" or "all" or the short name of this bgif it is "cancel" then exit to hypercardif it is "all" then mark cards where timeSlot > line 2 of bg fld "date"if it is the short name of this bg then mark cards where timeSlot > line 2 of bg fld "date" and it = the short name of this bgbeepput the number of marked cards &&"card(s) are now marked." into msgvisibleMarkend ifif it is "after" thenanswer "You are about to mark cards dated after "&aCertainDay&"."&return&return&¬"Would you like to do this in all sections or just in this section: "& the short name of this bg &"?" with "cancel" or "all" or the short name of this bgif it is "cancel" then exit to hypercardif it is "all" then mark cards where timeSlot < line 2 of bg fld "date"if it is the short name of this bg then mark cards where timeSlot < line 2 of bg fld "date" and it = the short name of this bgbeepput the number of marked cards &&"card(s) are now marked." into msgvisibleMarkend ifif the number of marked cards = 0 thenanswer "There are no cards to mark that fit your description. Printing has been canceled."exit to hypercardend ifexit to hypercardend if ---end date partif it is empty then exit to hypercardput it into theTextask "In what field does this information appear?"&return&return&"Choices are: 'company', 'name', 'address', 'csz', 'phone', 'notes' or 'section'."&return&return&¬"--'csz' stands for the field containing the city, state and zip code."repeat with i = 1 to the number of bg fldsif it = the short name of bg fld i then put true into testTheItend repeatif testTheIt is not true thenbeepanswer "There is no field by the name: ""e&it"e&"."&return&return&"No cards have been marked and printing has been canceled."¬&return&return&"You must spell the field name carefully."exit to hypercardend ifif it is empty then exit to hypercardput it into theFieldanswer "And finally, do you wish to mark all cards in the stack, or just cards in this section?"¬with "cancel" or the short name of this background or "all"if it is "cancel" then exit to hypercardif it is the short name of this background thenput "Marking cards where the field ""e&theField"e&" contains ""e&theText"e&" in this section..." into msgmark cards where (fld (theField)) contains (theText) and it is the short name of this backgroundif the number of marked cards = 0 thenbeepanswer "There are no cards to mark that fit your description."exit to hypercardend ifbeepput the number of marked cards &&"card(s) are now marked." into msgvisibleMarkexit to hypercardend ifif it is "all" thenput "Marking cards where the field ""e&theField"e&" contains ""e&theText"e&"..." into msgmark cards where (fld (theField)) contains (theText)if the number of marked cards = 0 thenput empty into msgbeepanswer "There are no cards to mark that fit your description..."beepput the number of marked cards &&"card(s) are now marked." into msgvisibleMarkexit to hypercardend ifend ifend FindAndMarkCardson moveContentsglobal userLevel, savLevset lockMessages to trueanswer "Use this button to transfer entries between sections."&return&return&"Transfer just this card are all cards in this section?"with "cancel" or "section" or "card"if it is "cancel" then exit to Hypercardif it is "section" then put true into sectionif it is "card" then put false into sectionif section is true then answer "Delete this section after its' entries are moved?" with "no" or "OK"if section is false then answer "Delete this card after the entry is moved?" with "no" or "OK"if it is "OK" then put true into deleteAfterwardsif it is "cancel" then exit to Hypercardput the userLevel into savLevset the userLevel to 5put bg fld "gobg" into directoryrepeat until it is in directoryask directory&return&"Type in the name of the section you want to transfer to:"if it is empty then exit to hypercardif it is not in directory then ask directory&return&"Type the destination again (could not find"&&it&"):"end repeatput it into transferToset cursor to busylock screenif section is true thenput the number of cds of this bg into cardsInStackBput the short name of this bg into transferBackrepeat with i = 1 to the number of cards of bg transferBackgo cd i of bg transferBackput bg fld "phone" into phoneput bg fld "notes" into notesput bg fld "date" into myDateput bg fld "company" into companyput bg fld "name" into nameput bg fld "local address" into localityput bg fld "csz" into cityput bg fld "mailing label" into MLput bg fld "export" into Exportput bg fld "tax#" into account---go bg transferTodoMenu "New Card"put phone into bg fld "phone"put notes into bg fld "notes"put company into bg fld "company"put name into bg fld "name"put locality into bg fld "local address"put city into bg fld "csz"put Mydate into bg fld "date"put ML into bg fld "mailing label"put Export into bg fld "export"put account into bg fld "tax#"put (cardsInStackB - 1) into cardsInStackBput cardsInStackB&" entries remaining to transfer from "&transferBack&" to "&transferTo&"..." into msgend repeatif deleteAfterwards is true thengo bg transferBacksend KillMeend ifend ifif section is false thenput bg fld "phone" into phoneput bg fld "notes" into notesput bg fld "date" into myDateput bg fld "company" into companyput bg fld "name" into nameput bg fld "local address" into localityput bg fld "csz" into cityput bg fld "mailing label" into MLput bg fld "export" into Exportput bg fld "tax#" into accountif deleteAfterwards is true thendoMenu "Cut Card"end if---go bg transferTodoMenu "New Card"put phone into bg fld "phone"put notes into bg fld "notes"put company into bg fld "company"put name into bg fld "name"put locality into bg fld "local address"put city into bg fld "csz"put Mydate into bg fld "date"put ML into bg fld "mailing label"put Export into bg fld "export"put account into bg fld "tax#"end ifput "Transfer complete." into msgset cursor to 1set lockScreen to falseset the userLevel to savLevend moveContents=========EXPORTING=========on ExportDataglobal wordProcessor,exportProgram,phoneToo,vendorTooanswer "Export entries from this stack to create data documents for mail merge or database use."&return&return&¬"Refer to your word processor or database application on using data documents."&return&return&"Entries are exported as tab-delimited text."answer "You can--"&return&"export all entries at once or "&return&"export one section at a time or"&return&"just export selectively"¬&" marked entries."&return&return&"If no entries are marked you are given an opportunity to do so prior to exporting data." with "cancel" or "continue"if it is "cancel" then exit to Hypercardanswer"Exported fields are: name; company; address; city; state; zip; phone #s lines 1-4 (optional) and vender i.d.(optional)."&return&return&"Choose to include" ¬&" either of the optional fields for export?" with "cancel" or "include" or "don't"if it is "cancel" then exit to Hypercardif it is "include" thenanswer "...include phone numbers?" with "no" or "OK"if it is "OK" then put true into phoneTooanswer "...include vendor ID?" with "no" or "OK"if it is "OK" then put true into vendorTooend ifask"In the program you are exporting entries to create a document entitled ""e&"Export Data""e&"."&return&return&"Address Ace™ will export "¬&"entries to this document."&return&return&"Below enter the name of the program the data document was created in:" with line 1 of wordProcessorif it is empty then exit to Hypercardput it into exportProgramanswer "You can export aprox. 400 entries (or 30,000 characters) at a time. All entries up to but not exceeding this amount will be transfered."¬&return&return&"To export more than that amount, mark the remaining entries or export them one section at a time."answer "Export data --"&return&"from all entries"&return&"from all the entries in this section ("&the short name of this bg&")"&return&"or from all marked entries"¬&" in this stack?"&return&return&"Type ⌘-. to cancel. Type ⌘-V to paste the results into the 'Export Data' document."with "all" or the short name of this bg or "marked"if it is all then doAllif it is the short name of this bg then doThisBgif it is "marked" thenif the number of marked cards = 0 thenanswer "Right now there are no marked cards to export."if there is a bg button "≠" thensend mouseUp to bg button "≠"elseanswer "You are using a copy of address Ace™ prior to v.2.4. No cards are presently marked. Manually mark the cards you want exported and try again."&¬" You might want to upgrade to a newer version of Address Ace™. It'll make it easier to mark cards for export..."exit to hypercardend ifend ifdoMarkedend ifend ExportDataon doThisBgglobal wordProcessor,exportProgram,phoneToo,vendorTooanswer "Lock the screen while compiling the data?"&return&return&¬"Locking the screen will make data compilation faster but cards won't be previewed as they are compiled." with "don't lock" or "lock"if it is "lock" then lock screenput "Compiling data to export... This may take some time..." into msgset cursor to watchput empty into DATA--arrange column titlesput "name" into DATA --selects the nameput tab after last char of DATA --adds a tab seperatorput "company" after last char of DATA --selects the companyput tab after last char of DATA --adds a tabput "local address" after last char of DATA--selects the local addressput tab after last char of DATA --adds a tabput "city" after last char of DATA--selects the addressput tab after last char of DATA --adds a tabput "state" after the last char of DATA --selects the addressput tab after last char of DATA --adds a tabput "zip" after the last char of DATA --selects the addressif phoneToo is true thenput tab after last char of DATA --adds a tabput "phone 1 (bus)" after last char of DATAput tab after last char of DATA --adds a tabput "phone 2 (bus)" after last char of DATAput tab after last char of DATA --adds a tabput "phone 3 (fax)" after last char of DATAput tab after last char of DATA --adds a tabput "phone 4 (home)" after last char of DATAend ifif vendorToo is true thenput tab after last char of DATA --adds a tabput "vendor ID" after last char of DATA --selects the tax#end ifput return after the last char of DATArepeat for the number of cards in this bg -- this is where the data is collectedgo next card of this bg-- goes to a selected cardput bg fld "name" after last char of DATA --selects the nameput tab after last char of DATA --adds a tabput bg fld "company" after last char of DATA --selects the companyput tab after last char of DATA --adds a tabput bg fld "local address" after last char of DATA--selects the local addressput tab after last char of DATA --adds a tabput item 1 of bg fld "csz" after last char of DATA--selects the addressput tab after last char of DATA --adds a tabput item 2 of bg fld "csz" into theState --selects the addressdelete char 1 of theState --deletes an empty spaceput theState after last char of DATA --selects the state and zip codeput tab before the last word of DATA --adds a tab between the state and zip codeif phoneToo is true thenput tab after last char of DATA --adds a tabrepeat with Z = 1 to 4put line Z of bg fld "phone" into phoneTempif the last char of phoneTemp = return then delete the last char of phoneTempput phoneTemp after the last char of DATAput tab after last char of DATA --adds a tabend repeatdelete the last character of DATAend ifif vendorToo is true thenput tab after last char of DATA --adds a tabput bg fld "tax#" after last char of DATA --selects the tax#end ifput return after last char of DATA --adds a return in preparation for the next entryif the number of characters in DATA > 29900 thenanswer "The limit of 30000 characters has been reached. Data will be moved from this point."exit repeatend ifend repeatlock screenput the userLevel into savLevelset the userLevel to 5doMenu "New Field"put DATA into cd fld 1select text of cd fld 1doMenu "Copy Text"select cd fld 1doMenu "Cut Field"choose browse toolput empty into msgunlock screenput savLevel into userLevelopen "Export Data" with exportProgramput empty into exportProgramput empty into phoneTooput empty into vendorTooend doThisBgon doMarkedglobal wordProcessor,exportProgram,phoneToo,vendorTooanswer "Lock the screen while compiling the data?"&return&return&¬"Locking the screen will make data compilation faster but cards won't be previewed as they are compiled." with "don't lock" or "lock"if it is "lock" then lock screenlock messagesset lockRecent to trueput "Compiling data to export... This will take time..." into msgset cursor to watchput empty into DATA--arrange the column titlesput "name" into DATA --selects the nameput tab after last char of DATA --adds a tabput "company" after last char of DATA --selects the companyput tab after last char of DATA --adds a tabput "local address" after last char of DATA--selects the local addressput tab after last char of DATA --adds a tabput "city" after last char of DATA--selects the addressput tab after last char of DATA --adds a tabput "state" after the last char of DATA --selects the addressput tab after last char of DATA --adds a tabput "zip" after the last char of DATA --selects the addressif phoneToo is true thenput tab after last char of DATA --adds a tabput "phone 1 (bus)" after last char of DATAput tab after last char of DATA --adds a tabput "phone 2 (bus)" after last char of DATAput tab after last char of DATA --adds a tabput "phone 3 (fax)" after last char of DATAput tab after last char of DATA --adds a tabput "phone 4 (home)" after last char of DATAend ifif vendorToo is true thenput tab after last char of DATA --adds a tab seperatorput "vendor ID" after last char of DATA --selects the tax#end ifput return after the last char of DATArepeat for the number of marked cards -- this is where the data is collectedgo next marked card -- goes to a selected cardput bg fld "name" after last char of DATA --selects the nameput tab after last char of DATA --adds tabput bg fld "company" after last char of DATA --selects the companyput tab after last char of DATA --adds tabput bg fld "local address" after last char of DATA--selects the local addressput tab after last char of DATA --adds tabput item 1 of bg fld "csz" after last char of DATA--selects the addressput tab after last char of DATA --adds tabput item 2 of bg fld "csz" into theState --selects the addressdelete char 1 of theState --deletes an empty spaceput theState after last char of DATA --selects the state and zip codeput tab before the last word of DATA --adds a tab between the state and zip codeif phoneToo is true thenput tab after last char of DATA --adds tabrepeat with Z = 1 to 4put line Z of bg fld "phone" into phoneTempif the last char of phoneTemp = return then delete the last char of phoneTempput phoneTemp after the last char of DATAput tab after last char of DATA --adds tabend repeatdelete the last character of DATAend ifif vendorToo is true thenput tab after last char of DATA --adds a tab seperatorput bg fld "tax#" after last char of DATA --selects the tax#end ifput return after last char of DATA --adds return in preparation for the next entryif the number of characters in DATA > 29900 thenanswer "The limit of 30000 characters has been reached. Data will be moved from this point."exit repeatend ifend repeatlock screenput the userLevel into savLevelset the userLevel to 5doMenu "New Field"put DATA into cd fld 1select text of cd fld 1doMenu "Copy Text"select cd fld 1doMenu "Cut Field"choose browse toolput empty into msgunlock screenput savLevel into userLevelopen "Export Data" with exportProgramput empty into exportProgramput empty into phoneTooput empty into vendorTooend doMarkedon doAllglobal wordProcessor,exportProgram,phoneToo,vendorTooanswer "Lock the screen while compiling the data?"&return&return&¬"Locking the screen will make data compilation faster but cards won't be previewed as they are compiled." with "don't lock" or "lock"if it is "lock" then lock screenput "Compiling data to export... This may take some time..." into msgset cursor to watchput empty into DATA--arrange the column titlesput "name" into DATA --selects the nameput tab after last char of DATA --adds tabput "company" after last char of DATA --selects companyput tab after last char of DATA --adds tabput "local address" after last char of DATA--selects the local addressput tab after last char of DATA --adds tabput "city" after last char of DATA--selects the addressput tab after last char of DATA --adds tabput "state" after the last char of DATA --selects the addressput tab after last char of DATA --adds a tabput "zip" after the last char of DATA --selects the addressif phoneToo is true thenput tab after last char of DATA --adds tabput "phone 1 (bus)" after last char of DATAput tab after last char of DATA --adds tabput "phone 2 (bus)" after last char of DATAput tab after last char of DATA --adds tabput "phone 3 (fax)" after last char of DATAput tab after last char of DATA --adds tabput "phone 4 (home)" after last char of DATAend ifif vendorToo is true thenput tab after last char of DATA --adds a tab seperatorput "vendor ID" after last char of DATA --selects the tax#end ifput return after the last char of DATArepeat for the number of cards -- this is where the data is collectedgo next card -- goes to a selected cardput bg fld "name" after last char of DATA --selects the nameput tab after last char of DATA --adds tabput bg fld "company" after last char of DATA --selects the companyput tab after last char of DATA --adds tabput bg fld "local address" after last char of DATA--selects the local addressput tab after last char of DATA --adds tabput item 1 of bg fld "csz" after last char of DATA--selects the addressput tab after last char of DATA --adds tabput item 2 of bg fld "csz" into theState --selects the addressdelete char 1 of theState --deletes an empty spaceput theState after last char of DATA --selects the state and zip codeput tab before the last word of DATA --adds a tab between the state and zip codeif phoneToo is true thenput tab after last char of DATA --adds tabrepeat with Z = 1 to 4put line Z of bg fld "phone" into phoneTempif the last char of phoneTemp = return then delete the last char of phoneTempput phoneTemp after the last char of DATAput tab after last char of DATA --adds tabend repeatdelete the last character of DATAend ifif vendorToo is true thenput tab after last char of DATA --adds a tab seperatorput bg fld "tax#" after last char of DATA --selects the tax#end ifput return after last char of DATA --adds return in preparation for the next entryif the number of characters in DATA > 29900 thenanswer "The limit of 30000 characters has been reached. Data will be moved from this point."exit repeatend ifend repeatlock screenput the userLevel into savLevelset the userLevel to 5doMenu "New Field"put DATA into cd fld 1select text of cd fld 1doMenu "Copy Text"select cd fld 1doMenu "Cut Field"choose browse toolput empty into msgunlock screenput savLevel into userLevelopen "Export Data" with exportProgramput empty into exportProgramput empty into phoneTooput empty into vendorTooend doAll</script>